home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / MLT / XTRACE311.sit / XTRACE311 / X-TRACE 3.1.1.rsrc / TEXT_1003_pcyl.xti.txt < prev    next >
Text File  |  1996-09-01  |  652b  |  49 lines
  1. xtrace    "poly-cylinder"
  2. {
  3.     procedure    pcyl    l,m,n, a,b,c, r,h, pn
  4.     {
  5.         nvar    pn=10;
  6.         nvar    h=r;
  7.  
  8.         var        t1, x1,y1;
  9.         var        t2, x2,y2;
  10.  
  11.         para    l,m,n;
  12.         leverz    a,b,c;
  13.         sim        r,r,h/2;
  14.         boundary    sphere    0,0,0, sqrt (2)
  15.         {
  16.             var        i=0;
  17.             while    lt (i - pn)
  18.             {
  19.                 t1=2*PI*i/pn;
  20.                 t2=2*PI*(i + 1)/pn;
  21.                 x1=cos (t1);
  22.                 y1=sin (t1);
  23.                 x2=cos (t2);
  24.                 y2=sin (t2);
  25.                 poly    ﾃｨ窶榲ｱﾂ 
  26.                 {
  27.                     pt    0,0,1;
  28.                     pt    x1,y1,1;
  29.                     pt    x2,y2,1;
  30.                 }
  31.                 poly    ﾃｫﾂｧﾃｱﾂ 
  32.                 {
  33.                     pt    x1,y1,1;
  34.                     pt    x1,y1,-1;
  35.                     pt    x2,y2,-1;
  36.                     pt    x2,y2,1;
  37.                 }
  38.                 poly    ﾃｭﾃ催ｱﾂ 
  39.                 {
  40.                     pt    0,0,-1;
  41.                     pt    x1,y1,-1;
  42.                     pt    x2,y2,-1;
  43.                 }
  44.                 i=i + 1;
  45.             }
  46.         }
  47.     }
  48. }
  49.